home *** CD-ROM | disk | FTP | other *** search
/ Wayzata World Factbook 1996 / The World Factbook - 1996 Edition - Wayzata Technology (3079) (1996).iso / pc / windows / viewer.txt < prev    next >
Text File  |  1996-01-15  |  581b  |  44 lines
  1. to handle next
  2.  
  3.     system numPages
  4.     system currPage
  5.     
  6.     currPage = currPage + 1
  7.     
  8.     if currPage <= numPages
  9.     
  10.         -- stay on this page
  11.         i = pageNumber of this page
  12.         i = i + 1
  13.         go to page i of this book
  14.         
  15.     else
  16.     
  17.         currPage = currPage - 1
  18.         
  19.     end if
  20.     
  21. end next
  22.  
  23. to handle previous
  24.  
  25.     system numPages
  26.     system currPage
  27.     
  28.     currPage = currPage - 1
  29. --    request currPage
  30.     
  31.     if currPage >= 1
  32.     
  33.         -- stay on this page
  34.         i = pageNumber of this page
  35.         i = i - 1
  36.         go to page i of this book
  37.         
  38.     else
  39.     
  40.         currPage = currPage + 1
  41.         
  42.     end if
  43.     
  44. end previous